home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 010 / alien.arc / ALIEN.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1984-05-05  |  1.9 KB  |  43 lines
  1. 10  KEY OFF:SCREEN 0,1:COLOR 15,0,0:WIDTH 40:CLS:LOCATE 5,19:PRINT "IBM"
  2. 20  LOCATE 7,8 ,0:PRINT "General  utility  programs"
  3. 30  COLOR 7 ,0:LOCATE 10,9,0:PRINT CHR$(213)+STRING$(21,205)+CHR$(184)
  4. 40  LOCATE 11,9,0:PRINT CHR$(179)+"       ALIEN         "+CHR$(179)
  5. 50  LOCATE 12,9,0:PRINT CHR$(179)+STRING$(21,32)+CHR$(179)
  6. 60  COLOR 7,0:LOCATE 13,9,0:PRINT CHR$(179)+"     Version  2B     "+CHR$(179)
  7. 70  BEEP
  8. 80  LOCATE 14,9,0:PRINT CHR$(212)+STRING$(21,205)+CHR$(190)
  9. 90  COLOR 15,0,1:LOCATE 17,7,0:PRINT "MARCH 5, 1982     MAV-5-5-K "
  10. 100  COLOR 7,0:LOCATE 23,6,0:PRINT "Press space bar to continue..."
  11. 110  IF INKEY$ <> "" THEN GOTO 110
  12. 120  CMD$ = INKEY$
  13. 130  IF CMD$ = "" THEN GOTO 120
  14. 140  IF CMD$ = CHR$(27) THEN GOTO 160
  15. 150  IF CMD$ <> " " THEN GOTO 120
  16. 160  REM TRANSFER COMMAND
  17. 600  '**ADVENTURE 2000***
  18. 610  '**STARTED 3/5/82***
  19. 620  '**EXPERIMENTAL*****
  20. 630  'SCREEN 1:COLOR 7,0:CLS
  21. 631  CLS
  22. 640  LOCATE 25,1:PRINT"press space bar to continue...":LOCATE 2,1
  23. 650  DIM A$(100),B$(100):Q=1
  24. 660  'BACKROUND
  25. 670  PRINT"Welcome to ADVENTURE...":PRINT:PRINT"This is a type of game that has its":PRINT"roots in ths fantasy roll-playing   "
  26. 680  PRINT"of 'D&D'(Dungeons and dragons). But":PRINT"the computer versions are really quite "
  27. 690  PRINT"different.":PRINT:PRINT
  28. 700  PRINT"In this game you will assume the roll":PRINT"of a character faced with a series of"
  29. 710  PRINT"situations requiring decisions and":PRINT"quick, intelligent reactions. The":PRINT"computer gives you descriptions of"
  30. 720  PRINT"various places, objects, and events.":PRINT"You react to the stimulus and tell ":PRINT"the computer what you want to do."
  31. 730  X$=INPUT$(1):IF X$=" " THEN 750
  32. 740  GOTO 730
  33. 750  CLS:LOCATE 25,1:PRINT"press space bar to continue..."
  34. 760  LOCATE 3,1
  35. 770  PRINT"One letter commands:":PRINT:PRINT"N for 'walk north'":PRINT"E for 'walk east'":PRINT"W for 'walk west'":PRINT"S for 'walk south'"
  36. 775  PRINT" Other commands, help,quit,look,shoot,blast,grab,etc"
  37. 780  PRINT"L for 'look'":PRINT:PRINT:PRINT"The computer will understand many words":PRINT"so don't hesitate to tell it what":PRINT"you want it to do in two-word commands."
  38. 790  PRINT:PRINT:PRINT"Good luck..."
  39. 800  X$=INPUT$(1):IF X$=" " THEN 830
  40. 810  SCREEN 1,0,0,0
  41. 820  GOTO 800
  42. 830  RUN "A2.SPC"
  43.